COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TC←FALSE << TRUE if Table of Contents wanted >>
C00005 00003	.BEGIN "FRONT"
C00008 00004	.BEGIN "YUM"
C00010 ENDMK
C⊗;
.TC←FALSE; << TRUE if Table of Contents wanted >>
.if XCRIBL THEN START
.  PAGE FRAME 52 HIGH 42 WIDE;
.  AREA TEXT LINES 3 TO 52;
.  ODDLEFTBORDER←EVENLEFTBORDER←400;
.  !XGPCOMMANDS←"/TMAR=80";

.  FONT 1 "BASL30"; FONT 2 "BASI30"; FONT 3 "BASB30";
.  FONT 4 "NGR40"; FONT 5 "BEESIX"; FONT 6 "SGN114";
.  FONT 7 "NGR25"; FONT 8 "BDJ25";
.  AT "ffi" ⊂ IF THISFONT ≤ 3 THEN "≠"  ELSE "fαfαi" ⊃;
.  AT "ffl" ⊂ IF THISFONT ≤ 3 THEN "α∞" ELSE "fαfαl" ⊃;
.  AT "ff"  ⊂ IF THISFONT ≤ 3 THEN "≥"  ELSE "fαf" ⊃;
.  AT "fi"  ⊂ IF THISFONT ≤ 3 THEN "α≡" ELSE "fαi" ⊃;
.  AT "fl"  ⊂ IF THISFONT ≤ 3 THEN "∨"  ELSE "fαl" ⊃;
.  END
.ELSE START
.  PAGE FRAME 52 HIGH 69 WIDE;
.  AREA TEXT LINES 4 TO 52;
.  END;

.macro tecol(linmin)  ⊂
.if lines<linmin then begin
.  SKIP TO COLUMN 1;
→%3Page
.  end
.  ⊃

.COMMENT Call this macro once at the end of the document;
.MACRO BACK ⊂
.TURN ON "→\∂{"
.EVERY HEADING(,%3TABLE OF CONTENTS,)
.FILL NOJUST CRBREAK
.PREFACE 0
.PORTION CONTENTS
.SKIP TO COLUMN 1
→%3Page
.RECEIVE
.		⊃

.TURN ON "α%→←{"
.BEGIN "FRONT"
.PORTION FRONT; place text
.CENTER
%3{MONTH} {YEAR}
.SKIP;
STANFORD ARTIFICIAL
INTELLIGENCE LABORATORY

presents:

%6Y
U
M
Y
U
M

.END "FRONT"
.BEGIN "PREF"
.  SKIP TO COLUMN 1; FILL ADJUST; TURN ON "#";
.GROUP SKIP 5;
←%3PREFACE

%1Yumyum is a guide to various Bay Area restaurants.
It seeks to provide some new ideas for eating-out adventures.
Comments are provided about reactions to various
gastronomic offerings, and culinary efforts are critiqued.

Where not otherwise stated, comments refer to the Summer of 1974.
Of course, restaurants change with the passing of time and chefs.
Also, inflation and soaring food costs, may turn today's inexpensive find
into tomorrow's budget buster.  In order to keep this guide somewhat up to
date, your suggestions for new restaurants to be included and your observations
of those listed are welcomed for help with further additions.

This guide is divided into
geographical regions.  Restaurants within each region are listed
by type of cuisine.  

→Kasee Menke, Editor#######

.SKIP 2; CENTER;
%3Credit Card Codes:

.NARROW 10;NOFILL
%2AX=American Express
BA=BankAmericard
CB=Carte Blanche
DC=Diners Club,
MC=Master Charge.
.  END "PREF"

.if TC then BEGIN "CONTENTS" INSERT CONTENTS END "CONTENTS";
.BEGIN "YUM"
.PORTION BODY
.TURN ON "∂";

.MACRO SEC(PLACE) ⊂
.ODD HEADING(,,%3{PAGE}); EVEN HEADING(%3{PAGE},,);
.NEXT PAGE; CENTER
%5PLACE
.IF TC THEN SEND CONTENTS ⊂ tecol(6); SKIP;
%5PLACE
. ⊃
.ODD HEADING(%4{CUIS},,%3{PAGE}); EVEN HEADING(%3{PAGE},,%5PLACE);
.⊃

.CUIS←NULL;
.MACRO TIT(HEADER,SUBHEAD);  ⊂
.SKIP; nofill; GROUP;
.IF LENGTH("HEADER") THEN BEGIN
.	CUIS←"HEADER";
.	IF TC THEN SEND CONTENTS ⊂
.tecol(5);
∂+2%3HEADER→%1{PAGE!}
.	⊃;
%4HEADER:
.	END
.    ELSE SKIP 1;
.IF LENGTH("SUBHEAD") THEN BEGIN
.	IF TC THEN SEND CONTENTS ⊂
.tecol(4);
∂+4%3SUBHEAD→%1{PAGE!}
.	⊃
∂+2%4SUBHEAD
.	END
.⊃

.PREFACE 0;

.AT "⊗" DATA "≡" ⊂
.DAT←"DATA";
.NAME←SCAN(DAT,"/","","IS");
.ADDRESS←SCAN(DAT,"/","","IS");
.PHONE←SCAN(DAT,"/","","IS");
.HRS←SCAN(DAT,"/","","IS");
.IF TC THEN SEND CONTENTS ⊂
.TECOL(2);
∂+6{NAME}→{PAGE!}
. ⊃
.SKIP; SELECT 3; GROUP; FILL; ADJUST; COMPACT; CRBREAK;
{NAME}→%1{PHONE}
{ADDRESS}
%7Hours:  {HRS}
.CRSPACE; COMPACT;
%8{DAT}
.APART
.⊃

.COUNT PAGE; INDENT 0,0,0;
.require "YUM" source_file;
.END "YUM"

.IF TC THEN BEGIN back END;